home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 193
/
193.d81
/
hello connect
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
984b
|
30 lines
3 poke53281,0:poke53280,0
4 poke32767,13:poke53275,0:poke53269,0
5 poke56578,peek(56578)or3:poke56576,(peek(56576)and252)or3
10 poke53272,21:poke648,4:poke55,0:poke56,160:poke51,0:poke52,160
15 poke53265,11:gosub500:poke53265,27
20 sys57812"mr.mouse 2+ 1000",dv:poke780,0:poke781,0:poke782,16:sys65493
21 bl=4096+54:b0=4096+177
22 sysb0,"features",dv,96*256
23 sysbl,"frodo.ml",dv,41*256
24 sysbl,"music",dv,106*256
25 q=57:poke44,q:pokeq*256,0
29 r$=chr$(13)+"r[213]"+chr$(13):q$=chr$(34)
30 print"[144]load"q$"b.frodo"q$","dv""
32 forx=1to4:poke630+x,asc(mid$(r$,x)):next:
36 poke198,4
40 end
500 dv=peek(186):ifdv<8thendv=8
505 print"[147]":a$=" "
510 b$="[169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169]"
515 close2:open2,dv,2,":features":get#2,i$,i$:input#2,i$:close2
520 poke214,10:print:poke646,15:fori=1to10:print""b$:next
530 poke214,12:print:poke646,11:fori=1to7:printtab(3)left$(b$,33):next
540 poke214,11:print:poke646,3:fori=1to7:printtab(4)""left$(b$,33):next
550 poke214,13:print:poke646,7:fori=1to3:printtab(6)""left$(a$,29):next
560 poke214,14:print:printtab(09)"[158][194]ack to e[204][207][193][196][211][212][193][210] "i$
580 return
59999 end
60000 dv=peek(186):ifdv<8thenstop
60001 open15,dv,15,"s0:hello connect":close15:save"0:hello connect",dv